home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Convert / syms-to-ton-n < prev    next >
Lisp/Scheme  |  1998-10-22  |  529b  |  20 lines
  1. syms-to-ton-n symbols-or-integers tonality
  2.  
  3. converts symbols or integers tonality 
  4. symbols must be without pause-symbols or chord
  5.  
  6.  
  7. (syms-to-ton-n '(a b d g f) '(messiaen3 c 5))
  8. ->((C 5) (D 5) (E 5) (|G#| 5) (G 5))
  9.  
  10. (syms-to-ton-n '(a b d g f) '(blues1 c 5))
  11. ->((C 5) (|D#| 5) (|F#| 5) (C 6) (|A#| 5))
  12.  
  13. (syms-to-ton-n '(0 2 3 5 6 8) '(blues1 c 5))
  14. ->((c 5) (f 5) (f# 5) (a# 5) (c 6) (f 6))
  15.  
  16. (setq syms '(0 2 3 5 6 8))
  17. (syms-to-ton-n syms '(major c 5))
  18. ->((c 5) (e 5) (f 5) (a 5) (b 5) (d 6))
  19. see also syms-to-ton and ton-to-syms
  20.